home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 October / Macworld (1998-10).dmg / Serious Demos / Morpha / 3DO.DXR / 00045.ls < prev    next >
Encoding:
Text File  |  1998-07-31  |  300 b   |  13 lines
  1. on pointmake numbs, r
  2.   repeat with i = 0 to numbs
  3.     set p to float(i) / numbs
  4.     set a to p * 2 * PI
  5.     set x to r * cos(a)
  6.     set y to r * sin(a)
  7.     set z to 0
  8.     set mine to integer(x) & "," && integer(y) & "," && integer(z)
  9.     set this to this & mine & RETURN
  10.   end repeat
  11.   put this
  12. end
  13.